Public Class EVinculo
    Private midtutor As Int32
    Private mnrolegajo As Int32
    Private mparentesco As String
    Private mestado As Integer

    Public Property idtutor() As Int32
        Get
            Return midtutor
        End Get
        Set(ByVal value As Int32)
            midtutor = value
        End Set
    End Property

    Public Property nrolegajo() As Int32
        Get
            Return mnrolegajo
        End Get
        Set(ByVal value As Int32)
            mnrolegajo = value
        End Set
    End Property

    Public Property parentesco() As String
        Get
            Return mparentesco
        End Get
        Set(ByVal value As String)
            mparentesco = value
        End Set
    End Property

    Public Property estado() As Integer
        Get
            Return mestado
        End Get
        Set(ByVal value As Integer)
            mestado = value
        End Set
    End Property

#Region "metodos publicos"

    'inicializa la entidad a los valeres por defecto
    Public Sub New()
        midtutor = 0
        mnrolegajo = 0
        mparentesco = ""
        mestado = 0
    End Sub

#End Region

End Class
